home *** CD-ROM | disk | FTP | other *** search
/ BBS Toolkit / BBS Toolkit.iso / rbbs_pc / 8n1mod.zip / 8N1MOD.TXT
Text File  |  1989-10-08  |  2KB  |  34 lines
  1.                       To Be added to RBBS-PC.BAS                               
  2.  
  3.     This will check your users right after they have entered their password
  4.    for the proper parity if it does not equal N-8-1 then it will inform them
  5.    of their error log them off telling them to please call back at N-8-1. This
  6.    is currently working on my BBS called the NoGames HST RBBS at 1-919-364-7378
  7.    running with a Dual Standard HST V.32,9600 Call at N,7,1 and see how it
  8.    works.
  9.                 Jeffrey Barnes
  10.  
  11. 460 USER.SECURITY.LEVEL$ = STR$(USER.SECURITY.LEVEL)
  12.     IF USER.SECURITY.LEVEL > -1 THEN _
  13.        USER.SECURITY.LEVEL$ = MID$(USER.SECURITY.LEVEL$,2)
  14.     CALL QTPUT("One Moment Checking Your Security level.......",1):  'JAB103088
  15.     CALL DELAYIT(1):
  16.     CALL QTPUT("One Moment Checking Your Parity.......",1):          'JAB092089
  17.     CALL DELAYIT(1):                                                 'JAB092089
  18. 463 TEST.BAUD$ = RIGHT$(BAUD.PARITY$,5)                              'JAB092089
  19.     IF NOT LOCAL.USER THEN _                                         'JAB091989
  20.     IF TEST.BAUD$ <> "N,8,1" THEN _                                  'JAB091989
  21.     CALL QTPUT ("INCORRECT PARITY DETECTED " + _                     'JAB091989
  22.          ACTIVE.USER.NAME$ + " Please Call Back at N-8-1",1):_       'JAB091989
  23.     IF TEST.BAUD$ <> "N,8,1" THEN _                                  'JAB091989
  24.        GOTO 10570                                                    'JAB092089
  25.     IF USER.SECURITY.LEVEL >= MINIMUM.LOGON.SECURITY THEN _
  26.        GOTO 470
  27.     IF NOT PRIVATE.DOOR THEN _
  28.        GOSUB 465 : _
  29.        CALL DELAYIT (8 + BPS)
  30.     IF LOGON.ERROR.INDEX < 9 AND _
  31.        EC = 0 THEN _
  32.        LOGON.ERROR.INDEX = 8
  33.     GOTO 10620
  34.